#############################################
#Replicate all results
#############################################
rm(list = ls())

#Run all scripts
all_scripts <- list.files(".", pattern = "^[0-9](.*)R$")

#Source scripts
for(this_script in all_scripts[2:length(all_scripts)]){
  source(this_script)
}

print("Done.")
